
#Region "Summary"
''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvCarDataType
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Query Result Single Business Entity
''' </summary>
''' <remarks>
''' Sample of business entity coding
''' </remarks>
''' <history>
''' 	[Generater by Nok]	7/4/2549 16:05:01	Created
''' </history>
''' -----------------------------------------------------------------------------
#End Region

#Region ".NET Framework Class Import"
Imports System
Imports System.Xml.Serialization
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Collections
#End Region

<Serializable()> _
Public Class QueryInvCarDataType
#Region "Internal member variables"
    Private _DataTypeID As Int32
    Private _DataTypeName As String
    Private _DataTypeDesc As String
    Private _OtDay As Double
    Private _OtHoliday As Double
    Private _CostDay As Double
    Private _CostHoliday As Double
    Private _CostDriver As Double
    Private _HumanNum As Int32
    Private _DataTypeStatus As Int32
    Private _TypeId As Int32
#End Region

    Public Sub New()
        _DataTypeID = Nothing
        _DataTypeName = Nothing
        _DataTypeDesc = Nothing
        _OtDay = Nothing
        _OtHoliday = Nothing
        _CostDay = Nothing
        _CostHoliday = Nothing
        _CostDriver = Nothing
        _HumanNum = Nothing
        _DataTypeStatus = Nothing
        _TypeId = Nothing
    End Sub

    Public Sub New(ByVal DataTypeID As Int32, _
       ByVal DataTypeName As String, _
       ByVal DataTypeDesc As String, _
       ByVal OtDay As Double, _
       ByVal OtHoliday As Double, _
       ByVal CostDay As Double, _
       ByVal CostHoliday As Double, _
       ByVal CostDriver As Double, _
       ByVal HumanNum As Int32, _
       ByVal DataTypeStatus As Int32, _
       ByVal TypeId As Int32)
        _DataTypeID = DataTypeID
        _DataTypeName = DataTypeName
        _DataTypeDesc = DataTypeDesc
        _OtDay = OtDay
        _OtHoliday = OtHoliday
        _CostDay = CostDay
        _CostHoliday = CostHoliday
        _CostDriver = CostDriver
        _HumanNum = HumanNum
        _DataTypeStatus = DataTypeStatus
        _TypeId = TypeId
    End Sub

#Region "Property"

    Public Property DataTypeID() As Int32
        Get
            Return _DataTypeID
        End Get
        Set(ByVal value As Int32)
            _DataTypeID = value
        End Set
    End Property


    Public Property DataTypeName() As String
        Get
            Return _DataTypeName
        End Get
        Set(ByVal value As String)
            _DataTypeName = value
        End Set
    End Property


    Public Property DataTypeDesc() As String
        Get
            Return _DataTypeDesc
        End Get
        Set(ByVal value As String)
            _DataTypeDesc = value
        End Set
    End Property


    Public Property OtDay() As Double
        Get
            Return _OtDay
        End Get
        Set(ByVal value As Double)
            _OtDay = value
        End Set
    End Property


    Public Property OtHoliday() As Double
        Get
            Return _OtHoliday
        End Get
        Set(ByVal value As Double)
            _OtHoliday = value
        End Set
    End Property


    Public Property CostDay() As Double
        Get
            Return _CostDay
        End Get
        Set(ByVal value As Double)
            _CostDay = value
        End Set
    End Property


    Public Property CostHoliday() As Double
        Get
            Return _CostHoliday
        End Get
        Set(ByVal value As Double)
            _CostHoliday = value
        End Set
    End Property


    Public Property CostDriver() As Double
        Get
            Return _CostDriver
        End Get
        Set(ByVal value As Double)
            _CostDriver = value
        End Set
    End Property


    Public Property HumanNum() As Int32
        Get
            Return _HumanNum
        End Get
        Set(ByVal value As Int32)
            _HumanNum = value
        End Set
    End Property


    Public Property DataTypeStatus() As Int32
        Get
            Return _DataTypeStatus
        End Get
        Set(ByVal value As Int32)
            _DataTypeStatus = value
        End Set
    End Property


    Public Property TypeId() As Int32
        Get
            Return _TypeId
        End Get
        Set(ByVal value As Int32)
            _TypeId = value
        End Set
    End Property

#End Region
End Class

''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvCarDataTypes
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Collection of query result
''' </summary>
''' <remarks>
''' Sample
''' </remarks>
''' <history>
''' 	[NOK'S Generater]	7/4/2549 16:05:01	Created
''' </history>
''' -----------------------------------------------------------------------------
<Serializable()> _
Public Class QueryInvCarDataTypes
    Inherits CollectionBase


    Default Public ReadOnly Property Item(ByVal index As Integer) As QueryInvCarDataType
        Get
            If (index < 0 Or index >= Me.InnerList.Count) Then
                Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
            Else
                Return CType(Me.InnerList(index), QueryInvCarDataType)
            End If
        End Get
    End Property

    Public Sub Add(ByVal info As QueryInvCarDataType)
        Me.InnerList.Add(info)
    End Sub

    Public Sub SetItem(ByVal index As Integer, ByVal value As QueryInvCarDataType)
        If (index < 0 Or index >= Me.InnerList.Count) Then
            Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
        Else
            Me.InnerList(index) = value
        End If
    End Sub


End Class
